home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Run Magazine ReRun 1985 Winter
/
rerun-1985-winter.d64
/
key convenience
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
4KB
|
135 lines
1 rem by kevin j stone
2 rem 3401 agricola st.
3 rem halifax, n.s. b3k 4j2
4 rem
10 poke 53281,1
20 print "[147] loading machine language ... pls wait"
30 gosub 880
40 open 15,8,15
50 print "[147] keyboard editor version 1.0 "
60 print : print"[144]"
70 print tab(3)"[213][192][192][192][192][192][192][192][160]menu selections [192][192][192][192][192][192][201]
80 [153] [163]3)"(NULL) (NULL)
90 print tab(3)"[221] f1[146] - reconfigure kybd [221]
100 [153] [163]3)"(NULL) f3wait - test kybd (NULL)
110 print tab(3)"[221] f5[146] - save kybd [221]
120 [153] [163]3)"(NULL) f6wait - load kybd (NULL)
130 print tab(3)"[221] f7[146] - quit [221]
140 [153] [163]3)"(NULL) (NULL)
150 print tab(3)"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
160 [153]:[153][163]5)"which selection ? ";
170 [141] 830
180 [139] i$[178]"input" [167] 250
190 [139] i$[178]"dim" [167] 460
200 [139] i$[178]"read" [167] 520
210 [139] i$[178]"if" [167] 650
220 [139] i$[178]"let" [167] [153] "loadexit to basic ...": [160]8:[160]15:[128]
230 [137] 170
240 [128]
250 [143] redefine new keyboard
260 [153] "loadpress 'f7' to return to main menu"
270 [153] : [153]
280 [153] "press key to change - ";
290 [141] 830
300 [139] i$[178]"let" [167] 50
310 ok$[178]i$ : [143] old key set
320 [153] ok$
330 [153]
340 [153] "press new key wanted - ";:[141] 830
350 [139] i$[178]"let" [167] 50
360 nk$[178]i$ : [143] old key set
370 [153] nk$;
380 nk[178][198](nk$) : ok[178][198](ok$)
390 [153] "loadperforming change - one minute please"
400 i[178]60289
410 [139] [194](i)[179][177]ok [167] 430
420 [151]i[171]11018,nk:[137] 250
430 i[178]i[170]1
440 [139] i[177]60483 [167] [153] "illegal key - try again":[141] 830:[137]250
450 [137] 410
460 [143] try new keyboard
470 [153] "loadpress 'f7' to return to menu"
480 [139] [194](1)[179][177]53 [167] [151] 253,0 : [158] 49152 : [143] get new keyboard
490 [141] 830
500 [139] i$[178]"let" [176] [194](1)[178]53 [167] [158] 49152 : [137] 50
510 [153] i$;: [137] 490
520 [153] "loadto exit without saving - press 'return'"
530 [133] "name the keyboard - ";n$
540 [139] n$[178]"" [167] 50
550 [139] [195](n$)[177]16 [167] [153] "name to long .. try again" : [137] 520
560 [159] 8,8,8,n$[170]",p,w"
570 [152]8,[199](0);:[143] lo load adr
580 [152]8,[199](192);:[143] high load adr
590 [129] x[178]49152 [164] 49467
600 [152]8,[199]([194](x));
610 [130]
620 [160] 8
630 [141] 780
640 [137]50
650 [153] "loadto exit without loading - press 'return'"
660 [133] "name of keyboard - ";n$
670 [139] n$[178]"" [167] 50
680 [139] [195](n$)[177]16 [167] [153] "name to long .. try again" : [137] 650
690 [159] 8,8,8,n$[170]",p,r"
700 [141] 780
710 [161]#8,i$ : [161]#8,i$ :[143] toss load address
720 i[178]49152
730 [161]#8,i$:[139] i$[178]"" [167] i$[178][199](0)
740 [151] i,[198](i$)
750 [139] st[179][177]0 [167] [160]8:[137]50
760 i[178]i[170]1
770 [137] 730
780 [132]15,e1,e2$,e3,e4
790 [139] e1[178]0 [167] [142]
800 [153] "error - ";e1;e2$
810 [153] "press a key - ";:[141] 830
820 [142]
830 [161] i$ : [139] i$[179][177]"" [167] 870
840 [153] "sincmdstop";:[129] d[178]1 [164] 100 :[130]
850 [153] "sinwaitcmdstop";:[129] d[178]1 [164] 100 :[130]
860 [137] 830
870 [142]
880 i[178]49152
890 [135] a:[139] a[178]256 [167] [142]
900 [151] i,a:i[178]i[170]1:[137] 890
910 [131] 165,253,201,1,208,3,76,83
920 [131] 192,169,224,133,252,169,0,133
930 [131] 251,160,0,177,251,145,251,200
940 [131] 208,249,230,252,165,252,201,0
950 [131] 208,239,169,160,133,252,169,0
960 [131] 133,251,160,0,177,251,145,251
970 [131] 200,208,249,230,252,165,252,201
980 [131] 192,208,239,169,0,133,254,169
990 [131] 1,133,253,162,0,189,119,192
1000 [131] 201,0,240,7,157,129,235,232
1010 [131] 76,69,192,165,254,201,0,240
1020 [131] 8,169,0,133,254,32,105,192
1030 [131] 96,169,1,133,254,32,112,192
1040 [131] 96,165,1,9,2,133,1,96
1050 [131] 165,1,41,253,133,1,96,20
1060 [131] 13,29,136,133,134,135,17,51
1070 [131] 87,65,52,90,83,69,1,53
1080 [131] 82,68,54,67,70,84,88,55
1090 [131] 89,71,56,66,72,85,86,57
1100 [131] 73,74,48,77,75,79,78,43
1110 [131] 80,76,45,46,58,64,44,92
1120 [131] 42,59,19,1,61,94,47,49
1130 [131] 95,4,50,32,2,81,3,255
1140 [131] 148,141,157,140,137,138,139,145
1150 [131] 35,215,193,36,218,211,197,1
1160 [131] 37,210,196,38,195,198,212,216
1170 [131] 39,217,199,40,194,200,213,214
1180 [131] 41,201,202,48,205,203,207,206
1190 [131] 219,208,204,221,62,91,186,60
1200 [131] 169,192,93,147,1,61,222,63
1210 [131] 33,95,4,34,160,2,209,131
1220 [131] 255,148,141,157,140,137,138,139
1230 [131] 145,150,179,176,151,173,174,177
1240 [131] 1,152,178,172,153,188,187,163
1250 [131] 189,154,183,165,155,191,180,184
1260 [131] 190,41,162,181,48,167,161,185
1270 [131] 170,166,175,182,220,62,91,164
1280 [131] 60,168,223,93,147,1,61,222
1290 [131] 63,129,95,4,149,160,2,171
1300 [131] 131,255,0,256